#lang rosetta-racket


(provide test-sweep-surface
         test-sweep-solid)


(define (test-sweep-surface)
  (lift
   (thunk (displayln "Sweep with a line profile creating a surface"))
   (sweep
    (spline (xy 10 1) (xyz 8 8 10) (xyz 10 5 13))
    (rectangle 1 2))))

(define (test-sweep-solid)
  (lift
   (thunk (displayln "Sweep with a surface profile creating a solid"))
   (sweep
    (spline (xy 10 1) (xyz 8 8 10) (xyz 10 5 13))
    (surface (rectangle 1 2)))))